home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol014 / powtwo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-01-11  |  512 b   |  20 lines
  1. (* decimal representaton of negative powers of 2 *)
  2.  
  3. const n=10;
  4.  
  5. type digit  = 0..9;
  6.      digtyp = array[1..n] of digit;
  7.  
  8. var i,k,r: integer;
  9.     d : digtyp;
  10.  
  11. begin for k:=1 to n do
  12.    begin put#0('.'); r:=0;
  13.       for i:=1 to k-1 do
  14.       begin r:=10*r+d[i]; d[i]:=r/2;
  15.             r:=r-2*d[i]; put#0(d[i]+'0')
  16.       end;
  17.       d[k]:=5; put#0('5',13,10)
  18.    end
  19. end.
  20.